home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_1[cbm_1983].nbz / sound demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.4 KB  |  211 lines
  1. 10 REM COPYRIGHT (C) ANDREW COLIN 1982
  2. 20 IFPEEK(58677)=6THENPRINT"[147]";:GOTO30
  3. 25 PRINT"[147]";
  4. 30 PRINT"   ***  SOUND DEMONSTRATION PROGRAM ***
  5. 40 [153]
  6. 50 [153]"  HIT A LETTER BETWEEN A AND M TO"
  7. 60 [153]
  8. 70 [153]"  HEAR A SOUND EFFECT"
  9. 80 [151] 54296,15:[151] 54295,0
  10. 100 [153]
  11. 110 [153]" A: HEAVY BREATHING"
  12. 120 [153]" B: QUIET HEARTBEAT"
  13. 130 [153]" C: PIP"
  14. 140 [153]" D: RASPBERRY"
  15. 150 [153]" E: WOLF WHISTLE"
  16. 160 [153]" F: UFO VISIT"
  17. 170 [153]" G: EXPLOSION"
  18. 180 [153]" H: GNATS"
  19. 190 [153]" I: POLICE SIREN"
  20. 200 [153]" J: MANDOLIN - RISING SCALE"
  21. 210 [153]" K: VIOLIN -FALLING SCALE"
  22. 220 [153]" L: BUGLE CALL"
  23. 230 [153]" M: TRIANGLE"
  24. 300 [161] A$: [139] A$[178]""[167] 300
  25. 310 G[178][198](A$)[171]64
  26. 320 [139] G[179]1 [176] G[177]13 [167] 300
  27. 330 GG[178]1024[170]201[170]40[172]G
  28. 340 [151] GG,[194](GG)[170]128
  29. 350 [145]G[141]1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000
  30. 360 [151]GG,[194](GG) [175] 127
  31. 370 [137]300
  32. 1000 [143] *** HEAVY BREATHING ***
  33. 1010 VV[178]54272
  34. 1020 [151] VV[170]6,0
  35. 1030 [129] MM[178]1 [164] 10
  36. 1040 [151] VV[170]1,24:[151] VV[170]5,138
  37. 1050 [151]VV[170]4,129:[129]NN[178]1[164]500[171]25[172]MM:[130]NN
  38. 1060 [151]VV[170]4,0:[129]NN[178]1[164]100:[130] NN
  39. 1070 [151]VV[170]1,20:[151]VV[170]5,155
  40. 1080 [151]VV[170]4,129:[129]NN[178]1[164]1500[171]75[172]MM:[130] NN
  41. 1090 [151]VV[170]4,0:[129]NN[178]1[164]200:[130] NN
  42. 1100 [130]MM
  43. 1110 [143] *** END OF HEAVY BREATHING ***
  44. 1120 [142]
  45. 2000 [143] *** HEART BEATING ***
  46. 2010 VV[178]54272
  47. 2020 [151]VV[170]24,31:[151] VV[170]6,0:[151]VV[170]22,10:[151]VV[170]23,1
  48. 2030 [129] MM[178]1 [164] 20
  49. 2040 [151] VV[170]1,24:[151] VV[170]5,51
  50. 2050 [151]VV[170]4,129:[129]NN[178]1[164]50 [171]MM:[130]NN
  51. 2060 [151]VV[170]4,0:[129]NN[178]1[164]100:[130] NN
  52. 2070 [151]VV[170]1,16:[151]VV[170]5,21
  53. 2080 [151]VV[170]4,129:[129]NN[178]1[164] 400[171]10[172]MM:[130] NN
  54. 2090 [151]VV[170]4,0:[129]NN[178]1[164]200:[130] NN
  55. 2100 [130]MM
  56. 2110 [151] VV[170]24,15:[151]VV[170]23,0
  57. 2120 [143] *** END OF HEART BEATING ***
  58. 2130 [142]
  59. 3000 [143] *** PIP ***
  60. 3010 VV[178]54272
  61. 3020 [151]VV[170]6,0:[151]VV[170]5,31
  62. 3030 [151]VV[170]1,180:[151]VV[170]4,33
  63. 3040 [129]NN[178]1[164]100:[130] NN
  64. 3050 [151]VV[170]4,0
  65. 3060 [143] *** END OF PIP ***
  66. 3070 [142]
  67. 4000 [143] *** RASPBERRY ***
  68. 4010 VV[178]54272:[151] VV[170]6,240
  69. 4020 [151]VV[170]1,4 :[151]VV[170]5,0:[151]VV[170]4,33
  70. 4030 [129]NN[178]1024 [164] 512 [169] [171]8
  71. 4040 [151] VV[170]1,NN[173]256:[151] VV,NN [175] 255
  72. 4050 [130]NN
  73. 4060 [151]VV[170]4,0
  74. 4070 [143] *** END OF RASPBERRY ***
  75. 4080 [142]
  76. 5000 [143] *** WOLF WHISTLE ***
  77. 5010 VV[178]54272
  78. 5020 [151] VV[170]6,0:[151] VV[170]5,9
  79. 5030 [151] VV[170]4,17
  80. 5040 [129] NN[178]80 [164] 140[169]4:[151] VV[170]1,NN:[130]NN
  81. 5050 [151] VV[170]4,0:[151] VV[170]5,74
  82. 5060 [129] NN[178]1[164]120:[130]NN
  83. 5070 [151] VV[170]4,17
  84. 5080 [129] NN[178]100[164]120:[151]VV[170]1,NN:[130] NN
  85. 5090 [129] NN[178]120[164]60[169][171]0.4:[151]VV[170]1,NN:[130] NN
  86. 5100 [151] VV[170]4,0
  87. 5110 [143] *** END OF WOLF WHISTLE ***
  88. 5120 [142]
  89. 6000 [143] *** UFO VISIT ***
  90. 6010 VV[178]54272:[151] VV[170]1,40
  91. 6020 [151] VV[170]6,0:[151] VV[170]5,204:[151] VV[170]4,0:[151] VV[170]4,129
  92. 6030 [129]NN[178]0[164]2500:[130] NN
  93. 6040 [151] VV[170]6,240:[151] VV[170]5,0:[151] VV[170]4,0
  94. 6050 [151] VV[170]4,17
  95. 6060 [129] MM[178]20 [164] 6 [169] [171]1
  96. 6070 [129] NN[178]   MM[164]50[171]MM
  97. 6080 [151]VV[170]1,NN
  98. 6090 [130] NN,MM
  99. 6100 [151] VV[170]1,3:[151] VV[170]4,0
  100. 6110 [129] NN[178]1[164] 10
  101. 6120 [151] VV[170]4,33:[129] MM[178]1[164]50:[130]MM
  102. 6130 [151] VV[170]4,0:[129] MM[178]1[164]200:[130]MM
  103. 6140 [130]NN
  104. 6150 [151]VV[170]6,0:[151]VV[170]5,5:[129] NN[178]3 [164] 100 [169] 5
  105. 6160 [151]VV[170]1,NN:[151] VV[170]4,33
  106. 6170 [129] MM[178]1[164]40[171]0.25[172]NN :[130] MM
  107. 6180 [151] VV[170]4,0:[129] MM[178]1 [164] 120[171]NN:[130]MM
  108. 6190 [130] NN
  109. 6200 [151] VV[170]5,31:[151] VV[170]4,129
  110. 6210 [129] NN[178]40[164]200 [169] 0.1
  111. 6220 [151] VV[170]1,NN
  112. 6230 [130] NN
  113. 6240 [151] VV[170]4,0
  114. 6250 [143] *** END OF UFO VISIT ***
  115. 6260 [142]
  116. 6500 [142]
  117. 7000 [143] *** EXPLOSION ***
  118. 7010 VV[178]54272:[151] VV[170]6,0:[151] VV[170]5,12
  119. 7020 [151] VV[170]1,20:[151] VV[170]4,129
  120. 7030 [129]NN[178]1[164]2500:[130]NN
  121. 7040 [151] VV[170]4,0
  122. 7050 [143] *** END OF EXPLOSION ***
  123. 7060 [142]
  124. 7070 [151] VV[170]4,0
  125. 7090 [142]
  126. 8000 [143] *** GNATS ***
  127. 8010 VV[178]54272
  128. 8020 [151] VV[170]6,0:[151] VV[170]5,205
  129. 8030 [151] VV[170]1,48[170]2[172][187](0)
  130. 8040 [151] VV[170]4,33
  131. 8050 [129]NN[178]1[164]200:[151] VV[170]1,48[170][181](2[172][187](0))
  132. 8055 [129]MM[178]1[164]10:[130]MM
  133. 8060 [130]NN
  134. 8070 [151] VV[170]4,0
  135. 8090 [142]
  136. 9000 [143] *** POLICE SIREN ***
  137. 9010 VV[178]54272:[151]VV[170]6,0:[151]VV[170]5,237
  138. 9020 [151]VV[170]2,200:[151]VV[170]3,0
  139. 9025 AA[178]55:BB[178]42
  140. 9030 [151]VV[170]1,60:[151]VV[170]4,65
  141. 9040 [129] NN[178]1[164]12
  142. 9050 [151]VV[170]1,AA
  143. 9060 [129]MM[178]1[164]300:[130]MM
  144. 9070 [151]VV[170]1,BB
  145. 9080 [129]MM[178]1[164]300:[130]MM
  146. 9085 [139] NN[178]6[167] AA[178]53:BB[178]40
  147. 9090 [130] NN
  148. 9100 [151]VV[170]4,0
  149. 9110 [143] *** END OF POLICE SIREN ***
  150. 9120 [142]
  151. 10000 [143] *** MANDOLIN ***
  152. 10010 VV[178]54272:[151] VV[170]6,0:[151] VV[170]5,8
  153. 10020 PP[178]1000:QQ[178]2[174](1[173]12)
  154. 10030 [129] KK[178]0[164]4
  155. 10040 [129] JJ[178]0[164] 11
  156. 10050 [139]JJ[178]1[176]JJ[178]3[176]JJ[178]6[176]JJ[178]8[176]JJ[178]10[167]10080
  157. 10060 [151] VV[170]1,PP[173]256:[151]VV,PP [175] 255
  158. 10070 [151]VV[170]4,0:[151]VV[170]4,33:[129]NN[178]1[164] 50:[130]NN
  159. 10080 PP[178]PP[172]QQ
  160. 10090 [139]KK[178]4[167] 10110
  161. 10100 [130] JJ,KK
  162. 10110 [129]NN[178]1[164]200:[130]NN
  163. 10120 [151] VV[170]4,0
  164. 10130 [143] *** END OF MANDOLIN   ***
  165. 10140 [142]
  166. 11000 [143] *** VIOLIN ***
  167. 11010 VV[178]54272:[151]VV[170]6,32:[151]VV[170]5,106
  168. 11020 PP[178]20000:QQ[178]2[174](1[173]12)
  169. 11030 [151]VV[170]3,50
  170. 11040 [129] KK[178]1[164]3
  171. 11050 [129] JJ[178]12 [164] 1 [169] [171]1
  172. 11060 [139] JJ[178]1[176]JJ[178]4[176]JJ[178]6[176]JJ[178]9[176]JJ[178]10[167] 11150
  173. 11070 [151]VV[170]4,0: [151]VV[170]4,65
  174. 11080 [129] NN[178]1[164]4
  175. 11090 ZZ[178]1.005[172]PP:[151]VV[170]1,ZZ[173]256:[151]VV,ZZ [175] 255
  176. 11100 [129]MM[178]1[164]25:[130]MM
  177. 11120 ZZ[178]0.995[172]PP:[151]VV[170]1,ZZ[173]256:[151]VV,ZZ [175]255
  178. 11130 [129]MM[178]1[164]25:[130]MM
  179. 11140 [130] NN
  180. 11150 PP[178]PP[173]QQ
  181. 11160 [139]KK[178]3[167] 11180
  182. 11170 [130] JJ,KK
  183. 11180 [129]MM[178]1[164]500 :[130]MM:[151]VV[170]4,0
  184. 11190 [143] *** END OF VIOLIN ***
  185. 11200 [142]
  186. 11300 [129]MM[178]1[164]50:[130]MM
  187. 12000 [143] *** BUGLE CALL ***
  188. 12010 [140]
  189. 12020 VV[178]54272
  190. 12030 [151] VV[170]6,  0:[151]VV[170]5,64[170]13
  191. 12040 [151] VV[170]3,99 :PP[178]2500
  192. 12050 [135] WW: [139] WW[178]0[167] [151] 54276,0:[142]
  193. 12060 RR[178][181](WW[173]10):QQ[178](WW[171]10[172]RR)[172]PP
  194. 12070 [151] 54273,QQ[173]256:[151]54272,QQ [175] 255
  195. 12080 [151]54276,0:[151] 54276,65:[129]NN[178]1[164]70 [172](RR[170]1):[130]NN
  196. 12090 [137] 12050
  197. 12100 [131] 25,6,24,5,3,3,3,4,5,6,25,6,24,5,3,3,3,64,3,3,5,4,4,5,3,3,5,4,5,6
  198. 12110 [131]15,6,24,5,3,3,3,4,5,6,25,6,24,5,3,3,3,94,0
  199. 12120 [143] *** END OF BUGLE CALL ***
  200. 13000 [143] *** TRIANGLE ***
  201. 13010 VV[178]54272
  202. 13020 [151] VV[170]6,0:[151]VV[170]5,12:[151]VV[170]1,200
  203. 13030 [151]VV[170]3,40
  204. 13040 [129] NN[178]1[164]5
  205. 13050 [151] VV[170]4,0:[151] VV[170]4,65
  206. 13060 [129]MM[178]1[164]500:[130]MM
  207. 13070 [130]NN
  208. 13080 [151]VV[170]4,0
  209. 13090 [143] *** END OF TRIANGLE ***
  210. 13100 [142]
  211.